(x_set_font): If font hasn't changed, avoid recomputing

faces and other things.

diff --git a/src/xfns.c b/src/xfns.c
index 7e10d67085f28fb6952768b879424f3ba5b9670f..6c9b40a329749cdac211fdef8e92aacb0fb53091 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1831,6 +1831,8 @@ x_set_font (f, arg, oldval)
     error ("The characters of the given font have varying widths");
   else if (STRINGP (result))
     {
+      if (!NILP (Fequal (result, oldval)))
+       return;
       store_frame_param (f, Qfont, result);
       recompute_basic_faces (f);
     }